home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / emulation / frodo / src / debug.i < prev    next >
Text File  |  1995-07-23  |  919b  |  69 lines
  1. ; Debugging
  2.     IFNE    DEBUG_DETAIL
  3.         XREF    KPrintF
  4.         XREF    KPutChar
  5.     ENDC
  6.  
  7. DPRINTF        MACRO    ; <string>,...
  8.     IFNE    DEBUG_DETAIL
  9. PUSHCOUNT    SET    0
  10.  
  11.         movem.l    d0-d1/a0-a1,-(sp)
  12.  
  13.         IFGE    NARG-9
  14.         move.l    \9,-(sp)
  15. PUSHCOUNT    SET    PUSHCOUNT+4
  16.         ENDC
  17.  
  18.         IFGE    NARG-8
  19.         move.l    \8,-(sp)
  20. PUSHCOUNT    SET    PUSHCOUNT+4
  21.         ENDC
  22.  
  23.         IFGE    NARG-7
  24.         move.l    \7,-(sp)
  25. PUSHCOUNT    SET    PUSHCOUNT+4
  26.         ENDC
  27.  
  28.         IFGE    NARG-6
  29.         move.l    \6,-(sp)
  30. PUSHCOUNT    SET    PUSHCOUNT+4
  31.         ENDC
  32.  
  33.         IFGE    NARG-5
  34.         move.l    \5,-(sp)
  35. PUSHCOUNT    SET    PUSHCOUNT+4
  36.         ENDC
  37.  
  38.         IFGE    NARG-4
  39.         move.l    \4,-(sp)
  40. PUSHCOUNT    SET    PUSHCOUNT+4
  41.         ENDC
  42.  
  43.         IFGE    NARG-3
  44.         move.l    \3,-(sp)
  45. PUSHCOUNT    SET    PUSHCOUNT+4
  46.         ENDC
  47.  
  48.         IFGE    NARG-2
  49.         move.l    \2,-(sp)
  50. PUSHCOUNT    SET    PUSHCOUNT+4
  51.         ENDC
  52.  
  53.         movem.l a0/a1,-(sp)
  54.         lea.l    .PSS\@(pc),A0
  55.         lea.l    4*2(sp),A1
  56.         jsr    KPrintF
  57.         movem.l (sp)+,a0/a1
  58.         bra.s    .PSE\@
  59.  
  60. .PSS\@        dc.b    \1
  61.         dc.b    13,10,0
  62.         even
  63. .PSE\@
  64.         lea.l    PUSHCOUNT(sp),sp
  65.  
  66.         movem.l    (sp)+,d0-d1/a0-a1
  67.     ENDC
  68.         ENDM
  69.